home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / C-SCRIPT.EXE / raw.cus < prev    next >
Text File  |  1997-04-04  |  5KB  |  177 lines
  1. #max2 off
  2. raw *:* { /halt }
  3. #MAX2 end
  4. #ialaupd2 off
  5. raw 352:* { halt }
  6. raw 315:* { disable #ialaupd2 | echo 13 %ialupdcn IAL Updated for %ialupdcn $+ ! }
  7. #ialaupd2 end
  8. #mkill off
  9. raw 352:* {
  10.   if (* isin %mkilladdy) {
  11.     /set %mkilladdy $remove(%filter.kick.address,*)
  12.   }
  13.   if (%mkilladdy isin $3 $+ @ $+ $4) {
  14.     /kill $6 %mkillreason
  15.   }
  16. }
  17. raw 315:* {
  18.   .disable #MKILL
  19. }
  20. #MKILL end
  21. #fkick off
  22. raw 352:* {
  23.   if (* isin %filter.kick.address) {
  24.     /set %filter.kick.address $remove(%filter.kick.address,*)
  25.   }
  26.   if ($6 == $me) { halt }
  27.   if (%filter.kick.address isin $3 $+ @ $+ $4) {
  28.     if (%filter.kick.ban == On) { ban $2 $6 3 }
  29.     kick $2 $6 $chr(3) $+ 6Filter Kick of $+ $chr(3) $chr(3) $+ 4 $+ $chr(42) $+ %filter.kick.address $+ $chr(42) $+ $chr(3) $chr(3) $+ 6from $2 $+ $chr(3)
  30.     /unset %filter.kick
  31.     /unset %filter.kick.ban
  32.   }
  33. }
  34. raw 315:* {
  35.   .disable #FKICK
  36. }
  37. #FKICK end
  38. raw 352:* {
  39.   set %adrs $6 $+ ! $+ $3 $+ @ $+ $4
  40.   set %clones $mask(%adrs,2)
  41.   if  (%clones isin %clist) { /inc %clns | %nclns = %nclns $6 | %clnsaddys = %clnsaddys $3 $+ @ $+ $4 }
  42.   %clist = %clist %clones
  43.   set %addy $mask(%adrs,3)
  44.   inc %ppl
  45.   if (($level(%addy) == =999) || ($level(%addy) == 999) || ($level($6) == =999) || ($level($6) == 999))  { /inc %enem | %emnick = %emnick $6 }
  46.   if (($level(%addy) == 7) || ($level($6) == 7))  { /inc %frie | %frnick = %frnick $6 }
  47.   if (@ isin $7) { /inc %fops  } |  else { /inc %nops }
  48.   if (G isin $7) { /inc %appl }
  49.   if (+ isin $7) { /inc %vppl }
  50.   if (($left(2,$7) == H*) || ($left(2,$7) == G*)) { /inc %found  | %iropn = %iropn $6 }
  51.   if (%CSCANRAW != Off) { halt }
  52. }
  53. raw 315:* {
  54.   if (%SCANRAW != Off) { set %SCANRAW Off | report }
  55.   if (%SSCANRAW != Off) { set %SSCANRAW Off | sreport }
  56.   if (%CSCANRAW != Off) { set %CSCANRAW Off | creport | halt }
  57.   if (%IRCopsRAW != Off) { set %IRCopsRAW Off | sIRCops }
  58. }
  59. raw 391:* {
  60.   if (%lagstat == on) {
  61.     %lag = $ctime - %pongtime 
  62.     if (%lag > 60) set %lag MAX 
  63.     else set %lag $duration(%lag) 
  64.     /title 
  65.     set %lagstat off
  66.     halt
  67.   }
  68. }
  69. raw 305:*: {
  70.   set %away FALSE
  71.   unset %AWAYR 
  72.   unset %AWAYT 
  73.   unset %AWAYMSG
  74.   /online
  75. }
  76. raw 306:*: {
  77.   set %away TRUE
  78.   /online
  79. }
  80. raw 315:*: { 
  81.   if (%filter.kick == On) {
  82.     set %filter.kick Off
  83.     unset %filter.kick.address  
  84.     halt
  85.   }
  86. }
  87. #chanstats on
  88. raw 331:* {
  89.   set %schantop No topic set
  90.   /echo 3 $2 $chr(91) $+ $2 $+ $chr(93) Topic: %schantop
  91. }
  92. raw 332:* {
  93.   set %schantop $3-
  94.   /echo 3 $2 6 $+ $chr(91) $+ $2 $+ $chr(93) $+  12Topic:7 %schantop $+ 
  95. }
  96. raw 333:* {
  97.   set %schanstop $3-
  98.   /echo 3 $2 6 $+ $chr(91) $+ $2 $+ $chr(93) $+  12Topic set by: 7 $+ $3 $+  12On: 7 $+ $asctime($4) $+ 
  99. }
  100. raw 353:* {
  101.   set %cstatschan $3
  102.   inc %chanopnum $count($3-,$chr(64))
  103.   inc %chanvnum $count($3-,$chr(43))
  104.   inc %chantnum $count($3-,$chr(32))
  105.   inc %channum $count($3-,$chr(32))
  106.   dec %channum %chanopnum
  107.   dec %channum %chanvnum
  108. }
  109. raw 366:* {
  110.   /echo 3 $2 6 $+ $chr(91) $+ $2 $+ $chr(93) $+  12Number of People: 7 $+ $chr(91) $+ Total: %chantnum $+ $chr(93) $chr(91) $+ Oped: %chanopnum ( $+ $percent(%chanopnum,%chantnum) $+ $chr(37) $+ ) $+ $chr(93) $chr(91) $+ Voiced: %chanvnum ( $+ $percent(%chanvnum,%chantnum) $+ $chr(37) $+ ) $+ $chr(93) $chr(91) $+ Normal: %channum ( $+ $percent(%channum,%chantnum) $+ $chr(37) $+ ) $+ $chr(93) $+ 
  111.   /set %chantnum 0
  112.   /set %chanopnum 0
  113.   /set %chanvnum 0
  114.   /set %channum 0
  115.   :done
  116. }
  117. #chanstats end
  118. raw 332:* {
  119.   set %schantop $3-
  120. }
  121. raw 436:* {
  122.   /wecho -WARNING- Nick Collide Detected! Changing nick!
  123.   /rn
  124.   /.timer 1 4   /rn
  125.   /.timer 1 60 /nick $me
  126. }
  127. raw 367:* {
  128.   inc %cbns 1
  129. }
  130. raw 324:* {
  131.   set %scmd $3
  132. }
  133. raw 332:* {
  134.   set %schantop $3-
  135. }
  136. #rawecho on
  137. raw 311:* {
  138.   /recho Whois Reply for  $+ $2 $+ 
  139.   /recho Nick: $2 
  140.   /recho Address: ( $+ $3 $+ @ $+ $4 $+ )
  141.   /recho IRC Name: $6-
  142.   /halt
  143. }
  144. raw 319:* { /recho Channels: $3- | /halt }
  145. raw 312:* { /recho Server: $3 | /halt }
  146. raw 301:* {
  147.   /wecho $2 is away
  148.   /wecho Reason: $3-
  149.   /halt
  150. }
  151. raw 313:* {
  152.   /wecho -WARNING- IRCop Detected!
  153.   /wecho   $2-
  154.   /halt
  155. }
  156. raw 314:* { 
  157.   /recho WhoWas reply for  $+ $2 $+ 
  158.   /recho Nick: $2
  159.   /recho Address: $3 $+ @ $+ $4
  160.   /recho Name: $6-
  161.   /halt
  162. }
  163. raw 317:* { /recho Idle Time: $3 $5 | /halt }
  164. raw 401:* { /recho  $+ $2 $+   $+ $3- $+  | /halt }
  165. raw 318:* { /recho End of Whois for  $+ $2 $+  | /halt }
  166. raw 369:* { /recho End of WhoWas for  $+ $2 $+  | /halt }
  167. raw 421:* { /wecho  $+ $2 $+  Unknown command | /halt }
  168. raw 401:* { /recho $2 No such Nick | /halt }
  169. raw 402:* { /recho $2 No such Server | /halt }
  170. raw 403:* { /recho $2 No such Channel | /halt }
  171. raw 404:* { /recho Cannot send to channel | /halt }
  172. raw 406:* { /recho $2 There was no such nickname | /halt }
  173. raw 433:* { /recho $2 Nickname already in use | /halt }
  174. raw 472:* { /recho $2 Unknown mode | /halt }
  175. raw 501:* { /recho Unknown mode flag | /halt }
  176. #rawecho end
  177.